home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / ply15dat.zip / TEXANIM.PI < prev    next >
Text File  |  1992-10-21  |  1KB  |  50 lines
  1. // Generic Polyray input File
  2. // Polyray input file: Alexander Enzmann
  3.  
  4. start_frame 0
  5. end_frame 179
  6. total_frames 180
  7.  
  8. // Set up the camera
  9. viewpoint {
  10.    from <0,5,-15>
  11.    at <0,0,0>
  12.    up <0,1,0>
  13.    angle 45
  14.    hither 1
  15.    resolution 128, 128
  16.    }
  17.  
  18. background midnight_blue
  19. light <-10, 20, -10>
  20. light < 10, 20, -10>
  21.  
  22. define bozo1
  23. texture {
  24.    noise surface {
  25.       color white
  26.       octaves 2
  27.       position_fn 1
  28.       lookup_fn 1
  29.       turbulence 4
  30.       ambient 0.3
  31.       diffuse 0.8
  32.       specular 0.6
  33.       microfacet Reitz 10
  34.       color_map(
  35.      [0,   0.1, red,     orange]
  36.      [0.1, 0.3, orange,  blue]
  37.      [0.3, 0.5, blue,    skyblue]
  38.      [0.5, 0.7, skyblue, orange]
  39.      [0.7, 0.9, orange,  magenta]
  40.      [0.9, 1.0, magenta, red])
  41.       }
  42.    }
  43.  
  44. define ftheta radians(frame * 360 / total_frames)
  45. object {
  46.    lathe 2, <0, 1, 0>, 5,
  47.          <3, -5>, <0.5, -3>, <4, -2>, <3, 2>, <0, 4>
  48.    bozo1 { scale <4, 4, 4> translate 8 * <cos(ftheta), 0, sin(ftheta)> }
  49.    }
  50.